100 Plus Great Games 2/100PLUSV2.BIN/games/Aim&Fire.dxr/00002_click Behavior.ls

Text File | 2002-01-25 | 7.8 KB | 243 lines

property spriteNum, pAddFNum, pFacingUp, pNumOfChars, pSlowDown, pFrameName, pAnimPause, pCount1, pPlayOnce
global gNeededSymbol, gPointsNeeded, gLevel, gPaused, gFadeFlare, gScore

on beginSprite
  pAddFNum = 14
  pSlowDown = 0.0
  pPlayOnce = 1
end

on exitFrame
  if gPaused = 0 then
    spin()
  end if
end

on mouseDown me
  if gPaused = 0 then
    puppetSound(1, "GunFire")
    if sprite(47).member.name = "gun0000" then
      sprite(48).member = "gun0000_flare"
      sprite(48).blend = 100
      sprite(37).loc = point(sprite(47).rect.left - 34, sprite(47).rect.top)
      sprite(37).blend = 100
      gFadeFlare = 1
    else
      if sprite(47).member.name = "gun0001" then
        sprite(48).member = "gun0001_flare"
        sprite(48).blend = 100
        sprite(37).loc = point(sprite(47).rect.left - 28, sprite(47).rect.top)
        sprite(37).blend = 100
        gFadeFlare = 1
      else
        if sprite(47).member.name = "gun0002" then
          sprite(48).member = "gun0002_flare"
          sprite(48).blend = 100
          sprite(37).loc = point(sprite(47).rect.left - 20, sprite(47).rect.top)
          sprite(37).blend = 100
          gFadeFlare = 1
        else
          if sprite(47).member.name = "gun0003" then
            sprite(48).member = "gun0003_flare"
            sprite(48).blend = 100
            sprite(37).loc = point(sprite(47).rect.left - 12, sprite(47).rect.top)
            sprite(37).blend = 100
            gFadeFlare = 1
          else
            if sprite(47).member.name = "gun0004" then
              sprite(48).member = "gun0004_flare"
              sprite(48).blend = 100
              sprite(37).loc = point(sprite(47).rect.left - 4, sprite(47).rect.top)
              sprite(37).blend = 100
              gFadeFlare = 1
            else
              if sprite(47).member.name = "gun0005" then
                sprite(48).member = "gun0005_flare"
                sprite(48).blend = 100
                sprite(37).loc = point(sprite(47).rect.left + 4, sprite(47).rect.top)
                sprite(37).blend = 100
                gFadeFlare = 1
              end if
            end if
          end if
        end if
      end if
    end if
    updateStage()
    pFrameName = sprite(spriteNum).member.name
    pNumOfChars = the number of chars in pFrameName
    if pNumOfChars = 6 then
      if (pFrameName.char[5] = 1) and (pFrameName.char[6] = 3) then
        pFacingUp = 1
      end if
      delete pFrameName.char[6]
      delete pFrameName.char[5]
    else
      if pNumOfChars = 3 then
        if (pFrameName.char[2] = 1) and (pFrameName.char[3] = 3) then
          pFacingUp = 1
        end if
        delete pFrameName.char[3]
        delete pFrameName.char[2]
      else
        if pNumOfChars = 10 then
          if (pFrameName.char[9] = 1) and (pFrameName.char[10] = 3) then
            pFacingUp = 1
          end if
          delete pFrameName.char[10]
          delete pFrameName.char[9]
        else
          if pNumOfChars = 8 then
            if pFrameName.char[1] = "C" then
              if (pFrameName.char[7] = 1) and (pFrameName.char[8] = 3) then
                pFacingUp = 1
              end if
            else
              if pFrameName.char[1] = "S" then
                if (pFrameName.char[7] = 1) and (pFrameName.char[8] = 3) then
                  pFacingUp = 1
                end if
              end if
            end if
            delete pFrameName.char[8]
            delete pFrameName.char[7]
          end if
        end if
      end if
    end if
    if pFacingUp = 1 then
      if pPlayOnce = 1 then
        puppetSound(5, "hit_swing")
      end if
      if pFrameName = gNeededSymbol then
        gPointsNeeded = gPointsNeeded - 1
        sprite(50 + gPointsNeeded).visible = 0
        updateStage()
        if gPointsNeeded <= 0 then
          sprite(43).visible = 0
          sprite(46).locZ = 100
          gPaused = 1
          if gLevel = 1 then
            Temp3 = 500 - (gPointsNeeded * 100) + (sprite(41).pSecs * 100)
            go(11)
          else
            if gLevel = 2 then
              Temp3 = 1000 - (gPointsNeeded * 100) + (sprite(41).pSecs * 100)
              go(11)
            else
              if gLevel = 3 then
                Temp3 = 1500 - (gPointsNeeded * 100) + (sprite(41).pSecs * 100)
                go(11)
              else
                if gLevel = 4 then
                  Temp3 = 2000 - (gPointsNeeded * 100) + (sprite(41).pSecs * 100)
                  go(11)
                else
                  if gLevel = 5 then
                    Temp3 = 2500 - (gPointsNeeded * 100) + (sprite(41).pSecs * 100)
                    member("GameOverText").text = "You Win!!!"
                    puppetSound(1, "youwin")
                    go(21)
                  end if
                end if
              end if
            end if
          end if
          member("LevelScoreText").text = "Level Score: " & Temp3
          gScore = gScore + Temp3
          member("TotalScore").text = "Total Score: " & gScore
          exit
        end if
        gNeededSymbol = random(5)
        if gNeededSymbol = 1 then
          gNeededSymbol = "Circle"
        else
          if gNeededSymbol = 2 then
            gNeededSymbol = "Square"
          else
            if gNeededSymbol = 3 then
              gNeededSymbol = "Triangle"
            else
              if gNeededSymbol = 4 then
                gNeededSymbol = "Star"
              else
                if gNeededSymbol = 5 then
                  gNeededSymbol = "X"
                end if
              end if
            end if
          end if
        end if
        sprite(43).member = gNeededSymbol
      else
        if pPlayOnce = 1 then
          if sprite(5).visible = 1 then
            sprite(5).visible = 0
            puppetSound(3, "miss")
          else
            if sprite(6).visible = 1 then
              sprite(6).visible = 0
              puppetSound(3, "miss")
            else
              sprite(7).visible = 0
              puppetSound(3, "miss")
              sprite(43).visible = 0
              gPaused = 1
              if gLevel = 1 then
                gScore = gScore + (500 - (gPointsNeeded * 100)) + (sprite(41).pSecs * 100)
              else
                if gLevel = 2 then
                  gScore = gScore + (1000 - (gPointsNeeded * 100)) + (sprite(41).pSecs * 100)
                else
                  if gLevel = 3 then
                    gScore = gScore + (1500 - (gPointsNeeded * 100)) + (sprite(41).pSecs * 100)
                  else
                    if gLevel = 4 then
                      gScore = gScore + (2000 - (gPointsNeeded * 100)) + (sprite(41).pSecs * 100)
                    else
                      if gLevel = 5 then
                        gScore = gScore + (2500 - (gPointsNeeded * 100)) + (sprite(41).pSecs * 100)
                      end if
                    end if
                  end if
                end if
              end if
              member("TotalScore").text = "Total Score: " & gScore
              pSecs = 25
              pTheTime = 0
              sprite(46).locZ = 100
              puppetSound(7, "gameOverSound")
              go(21)
            end if
          end if
        end if
      end if
    end if
  end if
end

on spin
  if (pAnimPause + pSlowDown) < the timer then
    pAnimPause = the timer
    if pFacingUp = 1 then
      pPlayOnce = 0
      if pAddFNum > 24 then
        pAddFNum = 1
      end if
      if pAddFNum <= 9 then
        sprite(spriteNum).member = pFrameName & "0" & pAddFNum
      else
        sprite(spriteNum).member = pFrameName & pAddFNum
      end if
      pAddFNum = pAddFNum + 3
      pSlowDown = pSlowDown + 0.14999999999999999
      if pSlowDown >= 4.29999999999999982 then
        pSlowDown = 0.0
        sprite(spriteNum).member = pFrameName & "01"
        pFacingUp = 0
        pPlayOnce = 1
      end if
    end if
  end if
end